1 PRINT"[147] PRESS R[146] TO RANDOMIZE."
2 GETA$:IFA$=""THEN2
3 IFA$="R"THENX=RND(-TI)
5 POKE56,27:CLR:PRINT"[147] PLEASE WAIT..."
7 B=7168:C=7679:FORA=BTOC:POKEA,0:NEXT
10 B=885:C=947:FORA=BTOC:READD:POKEA,D:NEXT
20 PRINT"[147] V[146]IC OR 64?"
25 PRINT" PRESS V[146] FOR VIC"
26 PRINT" RETURN[146] FOR 64."
30 GETA$:IFA$=""THEN30
35 IFA$<>"V"THEN50
40 POKE888,39:POKE892,148
50 PRINT"[147] PRESS F1[146] TO TEST"
51 PRINT" RANDOM SEEDS."
60 PRINT" PRESS F3[146] TO TEST"
61 PRINT" BASIC RND[146] COMMAND."
70 GETA$:IFA$=""THEN70
80 IFA$="[133]"THENGOTO1000
90 IFA$="[134]"THENGOTO2000
100 GOTO50
885 DATA165,197,201,4,240,55,32,151
893 DATA224,165,143,133,251,169,254,133
901 DATA253,169,27,133,254,160,255,24
909 DATA165,253,105,2,133,253,165,254
917 DATA105,0,133,254,200,196,251,208
925 DATA238,160,0,24,177,253,105,1
933 DATA145,253,200,177,253,105,0,145
941 DATA253,201,255,208,195,96,0,0
1000 PRINT"[147] PRESS 1-5 TO TEST"
1010 PRINT" RANDOM SEEDS."
1020 PRINT" PRESS    TEST BYTE:[146]"
1030 PRINT"   1         139"
1040 PRINT"   2         140"
1050 PRINT"   3         141"
1060 PRINT"   4         142"
1070 PRINT"   5         143"
1080 GETA$:IFA$=""THEN1080
1090 A=VAL(A$):IFA<1ORA>5THEN1000
1100 POKE895,138+A
1110 PRINT"[147] TESTING RANDOM SEED"
1120 PRINT" BYTE ";A+138;"[157]."
1130 PRINT" PRESS F1[146] TO STOP."
1140 SYS885:GOTO3000
2000 POKE945,4:POKE946,169:POKE947,255:POKE948,133:POKE949,176:POKE950,96
2002 FORA=891TO897:POKEA,234:NEXT
2005 PRINT"[147] TESTING BASIC RND[146]"
2010 PRINT" COMMAND."
2020 PRINT" ENTER NUMBER RANGE:"
2030 PRINT" (0 - 255)"
2035 PRINT" ENTER TWO NUMBERS"
2036 PRINT" SEPARATED BY A COMMA."
2040 INPUTA,B
2050 IFA<0ORA>255THEN2000
2060 IFB<0ORB>255THEN2000
2070 PRINT"[147] TESTING RND[146] COMMAND."
2080 PRINT" RANGE= ";A;"-";B
2090 PRINT" PRESS F1[146] TO STOP."
2100 X=251:Y=176:Z=255:R=(ABS(A-B))+1:POKEY,0
2110 IFA<BTHENL=A
2120 IFB<ATHENL=B
2130 POKEX,INT((RND(1)*R)+L):SYS885:IFPEEK(Y)=ZTHEN3000
2140 GOTO2130
3000 POKE198,0:GOSUB3500
3010 B=7168:C=7678:Q=256:L=20:FORA=BTOCSTEP2
3020 PRINTCT,PEEK(A)+Q*PEEK(A+1):N=N+1:CT=CT+1:IFN=>LTHENGOSUB3200
3030 NEXT
3100 PRINT"  (PRESS ANY KEY)"
3110 GETA$:IFA$=""THEN3110
3120 GOTO4000
3200 N=0
3210 GETA$:IFA$=""THEN3210
3220 GOSUB3500:RETURN
3500 PRINT"[147]NUMBER","COUNT":RETURN
4000 PRINT"[147] REQUEST ANALYSIS?"
4002 PRINT" (PRESS Y[146] OR N[146])"
4004 GETA$:IFA$=""THEN4004
4006 IFA$<>"Y"THEN5000
4008 PRINT"[147] PLEASE WAIT..."
4009 B=7168:C=7678:D=2:TT=0:CT=0:HI=0:LO=65535:ZZ=0:G=256
4010 FORA=BTOCSTEPD
4020 N=PEEK(A)+G*PEEK(A+1)
4030 IFN=0THENZZ=ZZ+1:GOTO4040
4035 GOSUB4500
4040 NEXT
4100 PRINT"[147] RANDOM ANALYSIS:"
4110 PRINT" TOTAL NUMBERS HIT:"
4120 PRINT"   ";CT
4130 PRINT" TOTAL COUNT:"
4140 PRINT"   ";TT
4150 PRINT" AVERAGE COUNT:"
4160 PRINT"   ";TT/CT
4170 PRINT" LOWEST COUNT:"
4180 PRINT"   ";LO
4190 PRINT" HIGHEST COUNT:"
4200 PRINT"   ";HI
4210 PRINT" TOTAL ZEROES:"
4220 PRINT"   ";ZZ
4230 CLR:PRINT"R[146] TO REPEAT ANALYSIS."
4240 GETA$:IFA$=""THEN4240
4400 IFA$="R"THEN3000
4410 GOTO5000
4500 CT=CT+1:TT=TT+N
4510 IFN>HITHENHI=N
4520 IFN<LOTHENLO=N
4530 RETURN
5000 PRINT"[147] PROGRAM ENDED."